| CloseActionExecute method |
Applies to
TDUnitDialog
Declaration
Procedure CloseActionExecute(Sender: TObject);Implementation
procedure TDUnitDialog.CloseActionExecute(Sender: TObject);
begin
if FTestResult <> nil then
FTestResult.stop;
self.ModalResult := mrCancel;
Close;
End; |
|
|